home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / ESCKEY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  1.8 KB  |  26 lines
  1. 5  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):KEY OFF:LIST 10-57
  2. 13  '*****************  ESCAPE KEY RESPONSE SUBROUTINE  ************************
  3. 19  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 22  'OPEN This will establish 'ESC' key as a 'CONTINUE' inkey response.  To use,  OPEN
  5. 25  'OPEN delete lines 05-45, renumber to fit your program, save with the 'A'     OPEN
  6. 28  'OPEN option and then merge in your program. Go to the subroutine with        OPEN
  7. 31  'OPEN a 'GOSUB' if you intend to use the procedure more than once.            OPEN
  8. 34  'OPEN If you do not want the F-KEY line ON, delete 'KEY-ON' from line 140.    OPEN
  9. 37  'OPEN If you want the prompt 'TO CONTINUE, PRESS ESC KEY' higher on screen.   OPEN
  10. 40  'OPEN Change the LOCATE 25 in the appropriate program lines.                  OPEN
  11. 41  'OPEN                 (c) G I N A C O  -1983                 Ver 5.1/160/320  OPEN
  12. 44  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  13. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  14. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  15. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  16. 100  '****** ESCAPE KEY RESPONSE SUBROUTINE FOLLOWS ***************************
  17. 105  KEY OFF: LOCATE 25,1:PRINT SPC(79):LOCATE 25,27:COLOR 3,0:PRINT"TO CONTINUE, PRESS ESC KEY";:COLOR 7,0
  18. 120  ESC$=INPUT$(1):IF ASC(ESC$) <> 27 THEN 125 ELSE 140
  19. 125  SOUND 500,4:GOTO 130
  20. 130  LOCATE 25,1:PRINT SPC(79):GOTO 105
  21. 140  LOCATE 25,1:PRINT SPC(79):KEY ON: REM DELETE IF YOU DO NOT WANT KEY ON
  22. 150  CLS:LOCATE 10,35:PRINT"YOU GOT IT RIGHT ":RETURN
  23. 160  END
  24. 65000  '************************** SAVE ROUITINE ******************************
  25. 65100  SAVE"B:ESCKEY.BAS"
  26.